Windows 6-Pak - Disc 4/Windows 6-Pak (InfoMagic) (Disc 4) (1999).ISO/Text-Chat-Addins/C-Script.exe/Sysfiles/Remote/ctcp-raw.mrc

Text File | 1998-05-11 | 15.2 KB | 231 lines

;C-Script v5.0 ⌐ 1998 C-Team. All rights reserved.
;Configure at your own risk
;CTCPs and RAW Events file (RAW events are below the CTCPs)

ctcp me:1:LAG: {
  %lag = $ticks - %pongtime
  set %lag $ims(%lag)
  if ($gettok(%lag,1,46) < 15) { set %lag %lag $+ s }
  elseif ($gettok(%lag,1,46) > 45) { set %lag MAX | if ($group(#ctcpreply) == on) { echo -a  $+ $clr(info) $+ *** Extreme lag detected (over 45secs) } }
  else { set %lag %lag $+ s }
  title
  halt
}
ctcp me:1:* { return }
#fakeping off
ctcp 1:PING: {
  raw -q notice $nick : $+ $chr(1) $+ PING Raising the standard with $vers available at %cswebpage and irc.C-Script.com $+ $chr(1)
  if (%ctcpbox == On) { echo %csctcp  $+ $clr(ctcp) $+  $+ $chr(91) $+ PING $+ $chr(93) $+  By  $+ $nick $+  $day $adate at $atime }
  halt
}
#FAKEPING end
#groupctcp on
ctcp +7:DCC CHAT: { if (($nick != $me) && (%ctcpbox == On)) { echo %csctcp  $+ $clr(ctcp) $+   $+ $chr(91) $+ $1-2 $+ $chr(93) $+  By  $+ $nick $+  $day $adate at $atime } }
ctcp +7:DCC SEND: { if (%ctcpbox == On) { echo %csctcp  $+ $clr(ctcp) $+   $+ $chr(91) $+ $1-3 $+ $chr(93) $+  By  $+ $nick $+  $day $adate at $atime } }
ctcp +7:DCC RESUME: { if (%ctcpbox == On) { echo %csctcp  $+ $clr(ctcp) $+   $+ $chr(91) $+ $1-3 $+ $chr(93) $+  By  $+ $nick $+  $day $adate at $atime } }
ctcp +7:DCC ACCEPT: { if (%ctcpbox == On) { echo %csctcp  $+ $clr(ctcp) $+   $+ $chr(91) $+ $1-3 $+ $chr(93) $+  By  $+ $nick $+  $day $adate at $atime } }
ctcp +7:SOUND: { if (%ctcpbox == On) { echo %csctcp  $+ $clr(ctcp) $+  $+ $chr(91) $+ $1-3 $+ $chr(93) $+  By  $+ $nick $+  $day $adate at $atime } }
ctcp 1:PING: {
  if (%ctcpbox == On) { echo %csctcp  $+ $clr(ctcp) $+   $+ $chr(91) $+ PING $+ $chr(93) $+  By  $+ $nick $+  $day $adate at $atime }
}
ctcp 1:VERSION: {
  raw -q notice $nick : $+ $chr(1) $+ VERSION Raising the standard with $vers available at %cswebpage and irc.C-Script.com $+ $chr(1)
  if (%ctcpbox == On) { echo %csctcp  $+ $clr(ctcp) $+   $+ $chr(91) $+ $1 $+ $chr(93) $+  By  $+ $nick $+  $day $adate at $atime }
  halt
}
ctcp 1:DCC CHAT: { if (%ctcpbox == On) { echo %csctcp  $+ $clr(ctcp) $+  $+ $chr(91) $+ $1-2 $+ $chr(93) $+  By  $+ $nick $+  $day $adate at $atime } | if ($away == $true) { notice $nick I'm away right now... Please try again later | halt } }
ctcp 1:DCC SEND: { if (%ctcpbox == On) { echo %csctcp  $+ $clr(ctcp) $+  $+ $chr(91) $+ $1-3 $+ $chr(93) $+  By  $+ $nick $+  $day $adate at $atime } | if ($away == $true) { notice $nick I'm away right now... Please try again later | halt } }
ctcp 1:DCC RESUME: { if (%ctcpbox == On) { echo %csctcp  $+ $clr(ctcp) $+  $+ $chr(91) $+ $1-3 $+ $chr(93) $+  By  $+ $nick $+  $day $adate at $atime } }
ctcp 1:DCC ACCEPT: { if (%ctcpbox == On) { echo %csctcp  $+ $clr(ctcp) $+  $+ $chr(91) $+ $1-3 $+ $chr(93) $+  By  $+ $nick $+  $day $adate at $atime } }
ctcp 1:SOUND: { if (%ctcpbox == On) { echo %csctcp  $+ $clr(ctcp) $+  $+ $chr(91) $+ $1-2 $+ $chr(93) $+  By  $+ $nick $+  $day $adate at $atime } }
ctcp =999:*:.ignore -a $nick 3 | halt
ctcp 1:* {
  if (%ctcpbox == On) { echo %csctcp  $+ $clr(ctcp) $+  $+ $chr(91) $+ $1- $+ $chr(93) $+  By  $+ $nick $+  $day $adate at $atime }
}
#groupCTCP end
#fkick off
raw 352:* {
  if ($6 == $me) { halt }
  if (%filter.kick.address isin $3 $+ @ $+ $4) {
    if (%filter.kick.ban == On) { ban $2 $6 3 }
    kick $2 $6 %filter.kick.reason
  }
  halt
}
raw 315:* {
  .disable #FKICK
  unset %filter.kick.address
  unset %filter.kick.ban
  unset %filter.kick.reason
  halt
}
#FKICK end
raw 352:* {
  set %tmp.adrs $6 $+ ! $+ $3 $+ @ $+ $4
  set %tmp.clones $mask(%tmp.adrs,2)
  if  (%tmp.clones isin %tmp.clist && $left($7,2) != H* && $left($7,2) != G*) { inc %tmp.clns | %tmp.nclns = %tmp.nclns $6 | if ($3 $+ @ $+ $4 !isin %tmp.clnsaddys) { %tmp.clnsaddys = %tmp.clnsaddys $3 $+ @ $+ $4 } }
  %tmp.clist = %tmp.clist %tmp.clones
  set %tmp.addy $mask(%tmp.adrs,3)
  inc %ppl
  if (($level(%tmp.addy) == =999) || ($level(%tmp.addy) == 999) || ($level($6) == =999) || ($level($6) == 999))  { inc %tmp.enem | %emnick = %emnick $6 }
  if (($level(%tmp.addy) == 7) || ($level($6) == 7))  { inc %tmp.frie | %frnick = %frnick $6 }
  if (@ isin $7) { inc %tmp.fops  } |  else { inc %tmp.nops }
  if (G isin $7) { inc %tmp.appl }
  if (+ isin $7) { inc %tmp.vppl }
  if (%AIRCopsRAW == On) { if (($left($7,2) == H*) || ($left($7,2) == G*)) { inc %tmp.founda | wecho2 Nick: $+ $clr(info2) $6  $+ $clr(info) $+ Home: $+ $clr(info2) $5 } | halt }
  if (($left($7,2) == H*) || ($left($7,2) == G*)) { inc %tmp.found | if ($left(%tmp.iropn,1) == $null) { %tmp.iropn = $6 } | else { %tmp.iropn = %tmp.iropn $+ , $6 } }
  :skip
  if (%CSCANRAW != Off) { halt }
  if (%SCANRAW != Off) { halt }
  if (%SSCANRAW != Off) { halt }
  if (%IRCopsRAW != Off) { halt }
}
raw 251:* { echo -s  $+ $clr(info) $+ $2-3 $+  $+ $clr(info2) $+  $4  $+ $clr(info) $+ $5-6 $+  $+ $clr(info2) $+  $7  $+ $clr(info) $+ $8-9 $+  $+ $clr(info2) $+  $10  $+ $clr(info) $+ $11- | halt }
raw 252:* { echo -s  $+ $clr(info2) $+  $+ $2  $+ $clr(info) $+ $3- | halt }
raw 253:* { echo -s  $+ $clr(info2) $+  $+ $2  $+ $clr(info) $+ $3- | halt }
raw 254:* { echo -s  $+ $clr(info2) $+  $+ $2  $+ $clr(info) $+ $3- | halt }
raw 255:* { echo -s  $+ $clr(info) $+ $2-3 $+   $+ $clr(info2) $+  $4  $+ $clr(info) $+ $5-6 $+  $+ $clr(info2) $+  $7  $+ $clr(info) $+ $8- | halt }
raw 265:* { echo -s  $+ $clr(info) $+ $str(-,27) | echo -s  $+ $clr(info) $+ $2-4 $+  $+ $clr(info2) $+  $5  $+ $clr(info) $+ $6 $+  $+ $clr(info2) $+  $7 | halt }
raw 266:* { echo -s  $+ $clr(info) $+ $2-4 $+  $+ $clr(info2) $+  $5  $+ $clr(info) $+ $6 $+  $+ $clr(info2) $+  $7 | halt }
raw 250:* { echo -s á | echo -s  $+ $clr(info) $+ $2- | halt }
raw 315:* {
  if (%SCANRAW != Off) { set %SCANRAW Off | report | set %tmp.found 0 | halt }
  if (%SSCANRAW != Off) { set %SSCANRAW Off | sreport | set %tmp.found 0 | halt }
  if (%CSCANRAW != Off) { set %CSCANRAW Off | creport | set %tmp.found 0 | halt }
  if (%IRCopsRAW != Off) { set %IRCopsRAW Off | sIRCops | set %tmp.found 0 | halt }
  if (%AIRCopsRAW != Off) { set %AIRCopsRAW Off | wecho2 Total IRCops found: $+ $clr(info2) $+  %tmp.founda | unset %tmp.* | halt }
}
;The port scanner is yet another great idea from ircN by icN
raw 211:* {
  if (%portscan == on) {
    set %tmp.nport $remove($right($2,5),])
    if (%tmp.nport isnum && $chr(46) !isin %tmp.nport) {
      if (%oport == $null) { set %oport $pls($5,$7) | set %port %tmp.nport | echo -a   $+ $clr(info) $+ Port: $+ $clr(info2) $+  %port  $+ $clr(info) $+ Traffic: $+ $clr(info2) $+  %oport | halt }
      set %tmp.lport $pls($5,$7)
      if (%tmp.lport < %oport) { set %oport %tmp.lport | set %port %tmp.nport }
      wecho2 Port: $+ $clr(info2) $+  %tmp.nport  $+ $clr(info) $+ Traffic: $+ $clr(info2) $+  %tmp.lport
    }
    else {
      if (%tmp.pserver isin $2) {
        if (%oport == $null) { set %oport $pls($5,$7) | set %port Default | echo -a   $+ $clr(info) $+ Port: $+ $clr(info2) $+  %port  $+ $clr(info) $+ Traffic: $+ $clr(info2) $+  %oport | halt }
        set %tmp.lport $pls($5,$7)
        if (%tmp.lport < %oport) { set %oport %tmp.lport | set %port default | halt }
        echo -a   $+ $clr(info) $+ Port: $+ $clr(info2) $+ Default  $+ $clr(info) $+ Traffic: $+ $clr(info2) $+  %lport
      }
      else halt
    }
    halt
  }
}
raw 219:* {
  if (%portscan == on) {
    set %portscan off
    if (%port == $null) { wecho2 Unable to locate port information for %tmp.pserver | halt }
    if (%port == default) { wecho2 Best available port is server default. | wecho2 To join server/port press F12 | %tmp.kchan2 = server %tmp.pserver | halt }
    if ($server != %tmp.pserver) { wecho2 Best available port on %tmp.pserver is: $+ $clr(info2) $+  %port | wecho2 To join server/port press F12 | %tmp.kchan2 = server %tmp.pserver %port | halt }
    if (%port == $port) && ($server == %tmp.pserver) { wecho2 You are on the best available port: $+ $clr(info2) $+  $port | halt }
    else { wecho2 Best available port is: $+ $clr(info2) $+  %port | wecho2 To join server/port press F12 | %tmp.kchan2 = server %tmp.pserver %port | halt }
    halt
  }
}
raw 305:*: { set %away FALSE | unset %AWAYR  | unset %AWAYT | unset %AWAYMSG | online }
raw 306:*: { set %away TRUE | online }
#links on
raw 364:*: {
  if (%lnkscnt == 0) { .window -c %cslinks | window -l %cslinks 10 10 750 300 %cslinks Courier New 12 | .timer 1 1 window -b %cslinks Courier New 12 }
  inc %lnkscnt
  set %temp $remove($4,:)
  inc %temp
  iline %cslinks 1 $str($remove($4,:),á) $remove($2,$chr(32)) ( $+ $remove($4,:) $+ ) $5-
  halt
}
raw 365:*: { aline %cslinks á | aline %cslinks *** End of Links list. Total of %lnkscnt servers found! | set %lnkscnt 0 | halt }
#links end
#chanstats on
raw 331:* { echo $2  $+ $clr(info) $+ Topic: $+ $clr(info2) No topic set | halt }
raw 332:* { if (%SCANRAW != Off) { set %tmp.schantop $3- | halt } | set %tmp.schantop $3- | echo $2  $+ $clr(info) $+ Topic: $+ $clr(info2) $+  %tmp.schantop | halt }
raw 333:* { if (%SCANRAW != Off) { halt } | echo $2  $+ $clr(info) $+ Topic set by: $+ $clr(info2) $+  $3  $+ $clr(info) $+ On: $+ $clr(info2) $+  $gettok($asctime($4),1-3,32) $atime($gettok($asctime($4),4,32)) $gettok($asctime($4),5,32) | halt }
raw 329:* { echo $2  $+ $clr(info) $+ Created on: $+ $clr(info2) $+  $gettok($asctime($3),1-3,32) $atime($gettok($asctime($3),4,32)) $gettok($asctime($3),5,32) | halt }
;"Sync Time Counter" idea from ircN by icN
raw 353:* {
  if ($me ison $3) && (%names == off) {
    if ($3 !isin %jnsynctchns) {
      %jnsynctchns = %jnsynctchns $3 | set %cstatschan $3 | inc %chanopnum $count($3-,$chr(64)) | inc %chanvnum $count($3-,$chr(43)) | inc %chantnum $count($3-,$chr(32)) | inc %channum $count($3-,$chr(32)) | dec %channum %chanopnum | dec %channum %chanvnum | %tmp.jntime2 = $ticks - %tmp.jntime | if ($len(%tmp.jntime2) > 3) %tmp.jntime2 = $remove(%tmp.jntime2,$right(%tmp.jntime2,3)) $+ . $+ $right(%tmp.jntime2,3) | else %tmp.jntime2 = 0. $+ %tmp.jntime2 | if ($3 != %cjntime) echo $3  $+ $clr(info) $+ Join synch:  $+ $clr(info2) $+  $+ %tmp.jntime2  $+ $clr(info) $+ seconds | set %cjntime $3 | .timer 1 5 unset %cjntime
    }
    halt
  }
}
raw 366:* {
  if (%names != $null) {
    echo $2  $+ $clr(info) $+ $chr(91) $+ Total: $+ $clr(info2) %chantnum $+  $+ $clr(info) $+ $chr(93) $chr(91) $+ Oped: $+ $clr(info2) %chanopnum  $+ $clr(info) $+ ( $+ $clr(info2) $+  $+ $perc(%chanopnum,%chantnum) $+ $chr(37) $+  $+ $clr(info) $+ ) $+ $chr(93) $chr(91) $+ Voiced: $+ $clr(info2) %chanvnum  $+ $clr(info) $+ ( $+  $+ $clr(info2) $+  $+ $perc(%chanvnum,%chantnum) $+ $chr(37) $+  $+ $clr(info) $+ ) $+ $chr(93) $chr(91) $+ Normal: $+ $clr(info2) %channum  $+ $clr(info) $+ ( $+  $+ $clr(info2) $+  $+ $perc(%channum,%chantnum) $+ $chr(37) $+  $+ $clr(info) $+ ) $+ $chr(93)
    set %chantnum 0 | set %chanopnum 0 | set %chanvnum 0 | set %channum 0 | unset %names | halt
  }
}
#chanstats end
raw 353:*:if (%names == off) { halt }
raw 366:*:if (%names == off) { unset %names | halt }
#clearbans off
raw 367:* {
  if (%SCANRAW != Off) { .disable #clearbans | inc %tmp.cbns 1 | halt }
  else mode $2 -b $3
  halt
}
raw 368:* {
  if (%SCANRAW != Off) { .disable #clearbans | halt }
  .disable #clearbans
  halt
}
#clearbans end
raw 332:* { if (%SCANRAW != Off) { set %tmp.schantop $3- | halt } }
raw 436:* { rn | wecho Warning nick collide detected... Changing nick | .timer 1 60 nick $me }
raw 367:* { if (%SCANRAW != Off) { inc %tmp.cbns 1 | halt } }
raw 368:* { if (%SCANRAW != Off) { halt } }
raw 324:* { if (%SCANRAW != Off) { set %scmd $3 | halt } }
#rawecho on
raw 311:* { wrecho Whois Reply: $+ $clr(info2) $2 ( $+ $3 $+ @ $+ $4 $+ ) | wrecho IRC Name: $+ $clr(info2) $6- | halt }
raw 319:* { set %chans $3- | halt }
raw 307:* { wrecho $2 is a Registered NickName | halt }
raw 312:* { wrecho Channels: $+ $clr(info2) $var(None,%chans)  $+ $clr(info) $+ Server: $+ $clr(info2) $3 | unset %chans | halt }
raw 301:* { if ($2 == $me) { halt } | else { wrecho $2 is Away: $3- | halt } }
raw 310:* { wrecho $2- | halt }
raw 313:* { wrecho $2- | halt }
raw 309:* { wrecho $2- | halt }
raw 308:* { wrecho $2- | halt }
raw 314:* { wrecho WhoWas reply for: $+ $clr(info2) $2 ( $+ $3 $+ @ $+ $4 $+ ) | wrecho Name: $+ $clr(info2) $6- | halt }
raw 317:* { wrecho Idle Time: $+ $clr(info2) $3 $5 | halt }
raw 318:* { linesep | halt }
raw 369:* { linesep | halt }
raw 421:* { wrecho Unknown command: $+ $clr(info2) $2 | halt }
raw 401:* { wrecho No such nick: $+ $clr(info2) $2 | halt }
raw 402:* { wrecho No such server: $+ $clr(info2) $2 | halt }
raw 403:* { wrecho No such channel: $+ $clr(info2) $2 | halt }
raw 404:* { wrecho Cannot send to channel | halt }
raw 406:* { wrecho There was no such nickname: $+ $clr(info2) $2 | halt }
raw 433:* { wrecho NickName already in use: $+ $clr(info2) $2 | halt }
raw 472:* { wrecho Unknown mode: $+ $clr(info2) $2 | halt }
raw 501:* { wrecho Unknown mode flag | halt }
#rawecho end
raw 301:* { if ($2 == $me) { halt } }
raw 375:* {
  if (change isin %motds) { set %getdate on }
  if (%motds == changew) { .debug on | if (%startupm == 1) { clear -s | echo -a  $+ $clr(info) $+ *** Initiating... | halt } }
  elseif (%motds == changes) { if (%startupm == 1) { clear -s | echo -a  $+ $clr(info) $+ *** Initiating... | halt } }
  elseif (%motds == window) { .debug on | if (%startupm == 1) { clear -s | echo -a  $+ $clr(info) $+ *** Initiating... | halt } }
  elseif (%motds == hide) { if (%startupm == 1) { clear -s | echo -a  $+ $clr(info) $+ *** Initiating... | halt } }
}
raw 372:* {
  if (%getdate == on) { set %motddate $3-4 | set %motddate2 $readini -n sysfiles\c-script.ini motd $server | set %getdate off }
  if (%motds == changew) { if (%motddate == %motddate2 && $exists(debug.log) == $true) { .debug off | .remove debug.log | clear -s | echo -a  $+ $clr(info) $+ *** Initiating... } | halt }
  elseif (%motds == changes) { if (%motddate != %motddate2) { return } | else { if (%startupm == 1) { halt } | else { return } } }
  elseif (%motds == window) { halt }
  elseif (%motds == hide) { if (%startupm == 1) { halt } }
}
raw 376:* {
  if (%motddate != %motddate2) { writeini sysfiles\c-script.ini motd $server %motddate }
  if (%motds == changew) { unset %getdate | if (%motddate != %motddate2) { .debug off | clear -s | showmotd | halt } | else { if (%startupm == 1) { .debug off | clear -s | echo -a  $+ $clr(info) $+ *** Successfully connected to $server $+ ... | halt } | else { .debug off | showmotd | halt } } unset %motddate | unset %motddate2 }
  elseif (%motds == changes) { unset %getdate | if (%startupm == 1) { if (%motddate != %motddate2) { return } | else { clear -s | echo -a  $+ $clr(info) $+ *** Successfully connected to $server $+ ... | unset %motddate | unset %motddate2 | halt } } | unset %motddate | unset %motddate2 | return }
  elseif (%motds == window) { .debug off | clear -s | showmotd | halt }
  elseif (%motds == hide) { if (%startupm == 1) { clear -s | echo -a  $+ $clr(info) $+ *** Successfully connected to $server $+ ... | halt } }
  unset %motddate | unset %motddate2
}